Code:
Public Function RepChar(AnyString As String) As String
'This function examines the last character in the string
'And by using the case statement it reeplaces that character
'with the appropriate value
Select Case Right(AnyString, 1)
Case "{" Or "}"
AnyString = Replace(AnyString, "{", 0)
AnyString = Replace(AnyString, "}", 0)
Case "A"
AnyString = Replace(AnyString, "A", 1)
Case "B"
AnyString = Replace(AnyString, "B", 2)
Case "C"
AnyString = Replace(AnyString, "C", 3)
Case "D"
AnyString = Replace(AnyString, "D", 4)
Case "E"
AnyString = Replace(AnyString, "E", 5)
Case "F"
AnyString = Replace(AnyString, "F", 6)
Case "G"
AnyString = Replace(AnyString, "G", 7)
Case "H"
AnyString = Replace(AnyString, "H", 8)
Case "I"
AnyString = Replace(AnyString, "I", 9)
Case "J"
AnyString = Replace(AnyString, "A", -1)
Case "K"
AnyString = Replace(AnyString, "B", -2)
Case "L"
AnyString = Replace(AnyString, "C", -3)
Case "M"
AnyString = Replace(AnyString, "D", -4)
Case "N"
AnyString = Replace(AnyString, "E", -5)
Case "O"
AnyString = Replace(AnyString, "F", -6)
Case "P"
AnyString = Replace(AnyString, "G", -7)
Case "Q"
AnyString = Replace(AnyString, "H", -8)
Case "R"
AnyString = Replace(AnyString, "I", -9)
End Select
RepChar = AnyString
End Function
However, I don't understand the logic fully. To use in a form or in a query you would do the following