proga.exe /param1=value1 /param2 /param3=value3

proga.exe -param1 value1 -param2 -param3 value3

  Sub main(args As String())
     If args.Length <> 0 Then
      For i As Integer = 0 To args.Length - 1
        MsgBox(args(i))
       Next
    End If
  End Sub

CmdArgc.exe -del -u username -file "C:\Мой Путь\myfile.txt" -param1 -param2 value2

-del
-u
username
-file
C:\Мой Путь\myfile.txt
-param1
-param2
value2

HasParam(ByVal param as String) as Boolean 'для да/нет этого достаточно
GetParamValue(ByVal param as String) as String 'если отсутствует, то пустой строки достаточно, либо проверка на Has  

Public Class cArgList

  Private DiArgs As New Dictionary(Of String, String)

  Public Sub New(ByVal args As String(), Optional ByVal keyprefix As String = "-")
    Dim key As String = ""
    If args.Length <> 0 Then
      For i As Integer = 0 To args.Length - 1
        If Strings.Left(args(i), Strings.Len(keyprefix)) = keyprefix Then
          key = Strings.Right(args(i), Strings.Len(args(i)) - Strings.Len(keyprefix))
          DiArgs.Add(key, vbNullString)
        Else
          If Strings.Len(key) > 0 AndAlso DiArgs.ContainsKey(key) Then
            DiArgs(key) = args(i)
            key = ""
          End If
        End If
      Next
    End If
  End Sub

  Public ReadOnly Property HasOption(ByVal key As String) As String
    Get
      Return DiArgs.ContainsKey(key)
    End Get
  End Property

  Public ReadOnly Property GetOptionString(ByVal key As String) As String
    Get
      Dim str_value As String = vbNullString
      If DiArgs.TryGetValue(key, str_value) Then
        Return str_value
      Else
        Return vbNullString
      End If
    End Get
  End Property

  Public ReadOnly Property Count() As Integer 'если командная строка пустая, то нуль
    Get
      Return DiArgs.Keys.Count
    End Get
  End Property

  Public ReadOnly Property Options() As Dictionary(Of String, String).KeyCollection
    Get
      Return DiArgs.Keys
    End Get
  End Property

End Class

Module Module1

  Public PArgList As cArgList

  Sub main(args As String())
    PArgList = New cArgList(args)

    'test
    Dim str As String = ""
    For Each k As String In PArgList.Options
      str = AddUsingDelimiter(k & "=" & PArgList.GetOptionString(k), str, vbCrLf)
    Next
    MsgBox(str)
    MsgBox(PArgList.HasOption("file"))
    MsgBox(PArgList.GetOptionString("file"))
    MsgBox(PArgList.HasOption("nooption"))
    MsgBox(PArgList.GetOptionString("nooption"))
  End Sub

  Public Function AddUsingDelimiter(ByVal str_to_add As String, ByVal str_base As String, ByVal Delimiter As String) As String
    'добавление компонента к сложному параметру через Delimiter (напр. ,-запятая)
    'str_to_add-то чего добавляем, str_base-вся строка
    If str_base = "" Then
      AddUsingDelimiter = str_to_add
    Else
      AddUsingDelimiter = str_base & Delimiter & str_to_add
    End If
  End Function

End Module

  Public Sub New(ByVal args As String(), Optional ByVal keyprefix As String = "-")
    Dim key As String = ""
    If args.Length <> 0 Then
      For i As Integer = 0 To args.Length - 1
        If Strings.Left(args(i), Strings.Len(keyprefix)) = keyprefix Then
          key = Strings.Right(args(i), Strings.Len(args(i)) - Strings.Len(keyprefix))
          If Strings.Len(key) > 0 AndAlso DiArgs.ContainsKey(key) = False Then _
           DiArgs.Add(key, vbNullString)
        Else
          If Strings.Len(key) > 0 AndAlso DiArgs.ContainsKey(key) Then
            DiArgs(key) = args(i)
            key = ""
          End If
        End If
      Next
    End If
  End Sub

Sub main(args As String())

For i As Integer = 0 To args.Length - 1
...
Next

Public ReadOnly Property HasOption(ByVal key As String) As Boolean
    Get
      Return DiArgs.ContainsKey(key)
    End Get
End Property

-u user -pw password -useSSL -s server -port 995 -delete...