Here is the answer you are lookin for
Code:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mysub("asdf")
End Sub
Public Sub mysub(ByVal myStrings() As String)
'Do stuff
End Sub
Public Sub mysub(ByVal myString As String)
Me.mysub(New String() {myString})
End Sub