para q serve o comando Split nessas 2 linhas, oq esse comando faz? eu to sem o help aqui
If sAux.Split(",")(1).Length <> 2 Then
...
ElseIf sAux.Split(",")(0) = "" Then
...
End If
If sAux.Split(",")(1).Length <> 2 Then
...
ElseIf sAux.Split(",")(0) = "" Then
...
End If