Pubic Sub Blah( Need Help here ?? ) [Resolved]

[Ricky1]

Ok here is my code.
[code
Public Sub NxAxMxE4( ????? )
Dim str As String
Dim x As Integer

str = Mid(Word, 1, 1) & Base & Mid(Word, 2, 1) & Base & Mid(Word, 3, 1) & Base & Mid(Word, 4, 1)
If Len(str) <= 32 Then
lstGen.AddItem str
End If

End Sub
[/code]

Ok where Base is, that is going to be a letter or letters. I want to be able to call it using a different letter.

Call NxAxMxE4 (xx)
So then Base will equal xx

Call NxAxMxE4 (vv)
So then Base will equal vv


How i do this ??