Optional arguments are probably the wrong way and not CLS compliant.Overloading is better.
Sub MySub( )Dim strParm() As String = {"up", "down", "left", "right"}Call MySub(strParm())End SubSub MySub(MyString as String() ).....End Sub