Hi! Thanks to Matthew Soji I got it solved. Here is my final code for whoever wants it!
On Error Resume Next
Dim Title As String = "MSEdt32"
Dim Str32 As String = ""
BackgroundColor = ConsoleColor.Blue
ForegroundColor = ConsoleColor.Yellow
WriteLine("Welcome to MSEdt32 - Press F1 To Quit")
ResetColor()
Dim In32 As ConsoleKeyInfo
Dim Ap32 As Char
Do
In32 = Console.ReadKey
If In32.Key = ConsoleKey.Enter Then
Console.WriteLine("")
End If
If In32.Key = ConsoleKey.Backspace Then
Console.Write(" ")
Console.SetCursorPosition(Console.CursorLeft - 1, Console.CursorTop)
Str32 = Str32.Replace("", "")
Str32 = Str32.Remove(Str32.Length - 1, 1)
End If
Ap32 = In32.KeyChar
Str32 &= Ap32
Loop While In32.Key <> ConsoleKey.F1
Str32 = Str32.Replace("", "")
MsgBox(Str32)
Cheers,
iProgramIt