Private Sub Ref_AfterUpdate()
Dim LResult As String
Dim L1Result As String
Dim result As String
result = Me.Ref.Value
LResult = Replace(result, "1", "E")
L1Result = Replace(LResult, "2", "Q")
L2Result = Replace(L1Result, "3", "B")
L3Result = Replace(L2Result, ".", "/")
L4Result =...