Hi friends
I have this code in form. how can I use it in module (Public) ?
Code:
Private Function ExtractLetters(ByVal strIn As String) As Boolean
Dim i As Integer, iLen As Integer, _
strChar As String, iChar As Integer
iLen = Len(strIn)
If iLen > 0 Then
strIn = UCase(strIn)
For i = 1 To 29
Me("V" & i) = vbNullString
Next i
For i = 1 To iLen
strChar = Mid(strIn, i, 1)
Select Case strChar
Case "Ç"
iChar = 1
Case "È"
iChar = 2
Case "Ì"
iChar = 3
Case "Ï"
iChar = 4
Case Else
End Select
Me("V" & iChar) = Me("V" & iChar) & strChar
Next i
End If
ExtractLetters = (Err = 0)
End Function