Hello, I've been making a game using a Console Application as the main window, for the it. The game requires you to make the right choices in a mini Hacking adventure, but I'm rather stuck in an area where the player is required to enter the name of the file they would send and the program does not recognize the right one, also I was wondering how I could tidy up my code as It seems to be growing at a unnecessary rate. Any help would be appreciated, thanks!

Module Module1

Dim Virus, Virus2, Virus3 As String
Dim Firewall, Firewall2, Firewall3 As String
Dim ExtractProgram, NormalP, SensitiveP As String
Dim answer1, answer2 As Integer
Dim answer3, answer5 As String
Dim answer4 = Virus



Sub Main()

FirstLine: Console.Clear()
Console.WriteLine("Your opponent just sent you a Virus, what will you do?")
Console.WriteLine("Enter a number Create a Virus(1), Firewall(2) or ExtractProgram(3)?")
answer1 = Console.ReadLine()

If answer1 = 1 Then
Console.WriteLine("Your too, late your PC got hacked and everything is being deleted")
Console.Beep()
Console.WriteLine("10%")
Console.Beep()
Console.WriteLine("30%")
Console.Beep()
Console.WriteLine("50%")
Console.Beep()
Console.WriteLine("70%")
Console.Beep()
Console.WriteLine("90%")
Console.Beep()
Console.WriteLine("100%")
Console.Beep()
Console.WriteLine("Drive C:/ deleted!")
Console.WriteLine("GAME OVER!")
Console.ReadLine()
GoTo FirstLine

ElseIf answer1 = 3 Then
Console.WriteLine("Your too, late your PC got hacked and everything is being deleted")
Console.Beep()
Console.WriteLine("10%")
Console.Beep()
Console.WriteLine("30%")
Console.Beep()
Console.WriteLine("50%")
Console.Beep()
Console.WriteLine("70%")
Console.Beep()
Console.WriteLine("90%")
Console.Beep()
Console.WriteLine("100%")
Console.Beep()
Console.WriteLine("Drive C:/ deleted!")
Console.WriteLine("GAME OVER!")
Console.ReadLine()
Console.Clear()
GoTo FirstLine


ElseIf answer1 = 2 Then
Console.WriteLine("Creating Wall.......")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine("Wall succesfully made, Virus Stopped!")
Console.WriteLine("Press enter to continue!")
Console.ReadLine()
GoTo SecondLine

Else
Console.WriteLine("Enter something useful then!")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo FirstLine
End If






SecondLine: Console.Clear()
Console.WriteLine("Enter a number to Create a Virus(1), Firewall(2) or ExtractProgram(3)?")
answer1 = Console.ReadLine()

If answer1 = 1 Then
Console.WriteLine("Virus made and waiting to be deployed!")
Console.WriteLine("Press Enter.")
Console.ReadLine()
GoTo LineNine

ElseIf answer1 = 2 Then
Console.WriteLine("Firewall backup in place! Press Enter.")
Console.ReadLine()
GoTo LineSeven


ElseIf answer1 = 3 Then
GoTo LineFour
Else
Console.WriteLine("Enter something useful then!")
Console.WriteLine("Press Enter First!")
GoTo SecondLine

End If


LineFour: Console.WriteLine("What type of extraction?")
Console.WriteLine("Normal(1) or Sensitive(2)?")
answer2 = Console.ReadLine()
If answer2 = 1 Then
Console.WriteLine("Normal extraction Program ready and waiting to be deployed!")
Console.WriteLine("NormalP")
Console.ReadLine()
GoTo LineThree
Else
Console.WriteLine("Sensitive extraction Program ready and waiting to be deployed!")
Console.WriteLine("SensitiveP")
Console.ReadLine()
GoTo LineEight


End If



LineThree: Console.Clear()
Console.WriteLine("Now what? (e.g Send......)")
Console.WriteLine("Input file name to send.")
answer3 = Console.ReadLine()

If answer3 = NormalP Then
Console.WriteLine("Sending, please wait a moment...")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine("NormalP succesfully sent, wait for information relay!")
Console.WriteLine("Press Enter!")
Console.ReadLine()
GoTo LineSix

ElseIf answer3 = SensitiveP Then
Console.WriteLine("No Program made yet.....")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineThree

ElseIf answer3 = Virus Then
Console.WriteLine("No virus made yet.....")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineThree

Else
Console.WriteLine("Enter something useful then!")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineThree
End If



LineSeven: Console.Clear()
Console.WriteLine("Enter a number to Create a Virus(1), Firewall(2) or ExtractProgram(3)?")
answer1 = Console.ReadLine()

If answer1 = 1 Then
Console.WriteLine("Virus made and waiting to be deployed!")
Console.WriteLine("Press Enter.")
Console.ReadLine()
GoTo LineNine

ElseIf answer1 = 2 Then
Console.WriteLine("Too many firewall's system failure!")
Console.WriteLine("GAME OVER!")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo FirstLine


ElseIf answer1 = 3 Then
GoTo LineFour
Else
Console.WriteLine("Enter something useful then!")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineSeven

End If

LineEight: Console.Clear()
Console.WriteLine("Now what? (e.g Send......)")
Console.WriteLine("Input file name to send.")
answer5 = Console.ReadLine()

If answer5 = NormalP Then
Console.WriteLine("No Program made yet.....")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineSix

ElseIf answer5 = SensitiveP Then
Console.WriteLine("Your Program is crashing on you!")
Console.Beep()
Console.WriteLine("Your firewall is now useless")
Console.Beep()
Console.WriteLine("Drive C:/ deleted!")
Console.WriteLine("GAME OVER!")
Console.ReadLine()
GoTo FirstLine

ElseIf answer5 = Virus Then
Console.WriteLine("No virus made yet.....")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineThree

Else
Console.WriteLine("Enter something useful then!")
Console.WriteLine("Press Enter First!")
Console.ReadLine()
GoTo LineThree
End If

LineNine: Console.Clear()
Console.WriteLine("Now what? (e.g Send......)")
Console.WriteLine("Input file name to send.")
Virus = Console.ReadLine()

Do Until Virus = Console.ReadLine()
Console.WriteLine("No file with that name! Try again")
Virus = Console.ReadLine()

Loop

'If answer4 = NormalP Then
'Console.WriteLine("No Program made yet.....")
'Console.WriteLine("Press Enter First!")
' Console.ReadLine()
'GoTo LineNine

'ElseIf answer4 = SensitiveP Then
'Console.WriteLine("No Program made yet.....")
'Console.WriteLine("Press Enter First!")
'Console.ReadLine()
'GoTo LineNine


'ElseIf answer4 = Virus Then
If answer4 = Virus Then
Console.WriteLine("Sending, please wait a moment...")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine(".")
Console.Beep()
Console.WriteLine("Virus succesfully sent, wait for report!")
Console.WriteLine("Press Enter!")
Console.ReadLine()
GoTo LineFive

'Else
'Console.WriteLine("Enter something useful then!")
'Console.WriteLine("Press Enter First!")
'Console.ReadLine()
'GoTo LineNine
End If


LineFive: Console.Clear()
Console.WriteLine("IN PROGRESS")
Console.ReadLine()

LineSix: Console.Clear()
Console.WriteLine("IN PROGRESS")
Console.ReadLine()

End Sub




End Module