Without knowing what you are trying to do, and what the errors you can see are, we can't help that much!
But...there are a few bits that spring out as being a bit weak:
Do
Console.WriteLine("Please choose the program you would like to select")
MenuOption = Console.ReadLine
If IsNumeric(MenuOption) And Asc(MenuOption) < 52 And Asc(MenuOption) > 48 Then
Console.WriteLine("This is a valid Case Choice")
Else
Console.WriteLine("This isnt a valid choice please try again")
End If
Loop Until Asc(MenuOption) < 52 And Asc(MenuOption) > 48
Then you follow this with a Select Case block which checks them all over again!
Why? Why not put the loop round the case statement?
Dim exitApp As Boolean = False
Do
Console.WriteLine("Please choose the program you would like to select")
MenuOption = Console.ReadLine()
Select Case MenuOption
Case "Q"
exitApp = True
Exit Select
Case "1"
...
Exit Select
Case "2"
...
Exit Select
Case Else
Console.WriteLine("Unknown choice: please try again")
Exit Select
End Select
Loop While Not exitApp
Then move the relevant code for each Case into a separate method and it all looks tidier, and easier to understand and improve.