Module Main
 
    Dim versetzeTurm
    Dim bewegung
    Dim versetzen
 
   Sub Main()
 
 
 
   versetzeTurm(4, "Kupfer", "Silber", "Gold")  /// Hier müsste ein Fehler _
     sein...
   console.ReadLine
 
End Sub
 
Sub bewegung(ByVal n As Integer, ByVal von As Integer, ByVal nach As Integer)
   console.WriteLine("Scheibe" & n & " von " & von & " nach " & nach)
 
End Sub
 
Sub versetzen(ByVal n As Integer, ByVal kupfer As String, ByVal silber As _
  String, ByVal gold As String)
 
   If n > 1 Then       
      versetzeTurm(n - 1, kupfer, silber, gold)
      bewegung(n, kupfer, gold)
      versetzeTurm(n - 1, silber, kupfer, gold)
   Else
       bewegung(n, kupfer, gold)
          End If
End Sub
 
End Module