Pastetool #59

URL: , Paste another

Function AlphaNumber(Alpha As String) As Integer
    Dim BigAL As String
    BigAL = UCase$(Alpha)
    If BigAL Like "[A-Z]" Then
        AlphaNumber = Asc(BigAL) - 64
    End If
End Function

Download code

This visual basic code was pasted on September 25, 2009

Protected with advance Anti-SPAM techniques :)
Coded and designed by Fedmich