Hàm SubString trong VBA

Code SubString VBA

Public Function SubString(chuoi As String, vitribatdau As Integer)
    Dim kq As String
    kq = Right(chuoi, Len(chuoi) - vitribatdau)
    SubString = kq
End Function

test:

Private Sub Command16_Click()
    MsgBox SubString(",,xin chao", 2)
End Sub