[urga]

ich bin nicht wirklich fit in der VB syntax, aber die idee sollte schon klar werden.

Sub blabla()
Dim StringList As New List(Of String)
StringList.Add ("1325");
For i As Integer = 0 To 5
 StringList.Add (Random4StelligeZahl());
Next
dim key as String  = String.Join("-", StringList)
End Sub


private sub Random4StelligeZahl as String
 Dim rnd As New Random
 string res = "";
 For i As Integer = 0 To 3
  res = res & rnd.Next (0,9).toString()
 Next
 return res
end sub