Separar una cadena en dos partes

[Jhonnyf]

Dim strCadena as String
Dim intPos As Integer
Dim Texto1 As String
Dim Texto2 As String
strCadena="Hola,Mundo"

intPos = InStr(1, strCadena, ",") 'posicion de la ","
Texto1 = Mid(strCadena, 1, intPos - 1) 'Extraemos desde el inicio hasta la posicion de la coma -1
Texto2 = Mid(strCadena, intPos + 1) 'Extramos desde la posicion de la coma + 1 hasta el final

*******************************************
if Check1.Value= 1 then 'si es 0 entonces no esta selecionado
' checkbox esta selecionado
end if