Поместите это где-нибудь актуально. Я предполагаю, что ваше "соответствующее" место имеет свойства X, Y и Z, которые являются целыми числами:
Dim s = Environment.GetCommandLineArgs()
Try
For i = 0 to UBound(args) - 1 Step 2
If s(i) = "-x" Then
X = Convert.ToInt32(s(i+1))
Else If s(i) = "-y" Then
Y = Convert.ToInt32(s(i+1))
Else If s(i) = "-z" Then
Z = Convert.ToInt32(s(i+1))
Else
Catch ex as Exception
'some message code here if you want
End Try
If X= 0 OrElse Y = 0 OrElse Z = 0 Then
'some advice on using the args here
End If
Если вы хотите продолжить со значениями по умолчанию, поместите попытку в l oop, чтобы продолжить обработку. Если вы хотите, чтобы регистр -x et c соответствовал регистру без учета регистра в If ..