Function Question

[paispatin]

I want to convert from "a" to "1" or from "b" to "2" with function.

I'm new with VB, please give me an Idea about this problem.

Thank you in advance.

a1="a"
a1 = fac(a1)
MsgBox (a1) 
'if a1="a" it should be "1"

a2="b"
a2 = fac(a2)
MsgBox (a2) 
'if a2="b" it should be "2"
    

Function fac(t) As String

    If t = "a" Then
        t = "1"
    End If

    If t = "b" Then
        t = "2"
    End If

  
End Function

Of couse this code not work, but that's just my idea about function.

 

[Hypetia]

Here goes the fac function. Note that the return type of the function is String as you proposed, but you should change it to Integer which is more appropriate.
___
[tt]
Function fac(Char As String) As String
fac = Asc(UCase$(Char)) - vbKeyA + 1
End Function[/tt]

 

[paispatin]

Thank you Hypetia, you gave me an idea.
When I try this code:

Function fac(Char As String) As String

VB give this error :
ByRef argement type mismatch

So, I change the code into :

Function fac(t) As String

and it work.
Thank you very much.

 

[bombdropVB]

Try the following it should be what you are looking for!

Option Explicit

Private Sub Command1_Click()
Dim a1 As String
a1 = "as"
MsgBox fac(a1)

End Sub
Public Function fac(letter As String) As Integer

If Asc(LCase(letter)) <= 122 And Asc(LCase(letter)) >= 97 Then
    fac = Asc(LCase(letter)) - 96
  End If
    
End Function

hope this helps