.NET String To Alphabetic Value

'Converts each letter of a string to their alphabetic numerals (a = 1 b = 2 c = 3 etc)
'Written  By Sixem
Private Alpha_String_ As String = "A1#B2#C3#D4#E5#F6#G7#H8#I9#J10#K11#L12#M13#N14#O15#P16#Q17#R18#S19#T20#U21#V22#W23#X24#Y25#Z26"
    Private Function Alpha_String_Numerals(ByVal vAL As String)
        Dim rZ_ As New StringBuilder
        For Each Chr_ As Char In (vAL.ToUpper)
            Dim cHR_VAL As String = CStr(Chr_.ToString)
            If (cHR_VAL) = Chr(32) = False Then
                Dim sNUM_ As String() = (Alpha_String_.Split(Chr(35)))
                For Each s_ As String In sNUM_
                    If s_.Contains((cHR_VAL)) = True Then
                        rZ_.Append(CStr(s_.Replace((cHR_VAL), Nothing)))
                    End If
                Next
            Else
                rZ_.Append(Chr(32))
            End If
        Next
        Return CStr(rZ_.ToString)
    End Function