Public Function Alphabetic(ByVal pi_sDato As String) As Boolean Implements IValidate.Alphabetic
For i As Integer = 0 To pi_sDato.Length - 1
If pi_sDato.Substring(i, 1) <> " " Then
If Not Char.IsLetter(Char.Parse(pi_sDato.Substring(i, 1))) Then
Return False
Exit Function
End If
End If
Next
Return True
End Function
Daniel Vargas.
MCP - Microsoft Certified Professional
"El callar y escuchar es cosa de sabios por ello nuestro grito nace de silencio consciente fuerte y elocuente... vivir de manera diferente es morir siendo libre"
Elkin Ramirez-Kraken
My Blog