Dim zufall As New Random
        Dim NextDirection As Integer

        NextDirection = zufall.Next(1, 5)
        Select Case NextDirection
            Case 1
                If zufall.Next = 2 Then
                    NextDirection = zufall.Next(1, 5)
                Else : MonsterDirection = "LEFT"
                End If
            Case 2
                If zufall.Next = 1 Then
                    NextDirection = zufall.Next(1, 5)
                Else : MonsterDirection = "RIGHT"
                End If
            Case 3
                If zufall.Next = 4 Then
                    NextDirection = zufall.Next(1, 5)
                Else : MonsterDirection = "UP"
                End If
            Case 4
                If zufall.Next = 3 Then
                    NextDirection = zufall.Next(1, 5)
                Else : MonsterDirection = "DOWN"
                End If


        End Select

    End Sub