在Visual Basic（VB）中，你可以使用多種方法來輸入一個字符。以下是一些常見的方法：

使用 `Console.ReadLine()` 方法

你可以使用 `Console.ReadLine()` 方法從控制臺讀取一行輸入，然后使用 `Char` 類的 `Get` 方法來獲取第一個字符。

```vb

Module Module1

Sub Main()

Console.WriteLine("請輸入一個字符：")

Dim input As String = Console.ReadLine()

If input.Length > 0 Then

Dim character As Char = Char.GetAt(input, 0)

Console.WriteLine("輸入的字符是：" & character)

Else

Console.WriteLine("沒有輸入字符。")

End If

Console.ReadLine() ' 等待用戶輸入，以便程序不會立即退出

End Sub

End Module

```

使用 `Console.ReadKey()` 方法

`Console.ReadKey()` 方法可以讀取單個字符，包括按下的鍵和是否按下了 `Enter` 鍵。

```vb

Module Module1

Sub Main()

Console.WriteLine("請按下一個字符：")

Dim key As ConsoleKeyInfo = Console.ReadKey()

Console.WriteLine("按下的字符是：" & key.KeyChar)

Console.WriteLine() ' 換行

Console.WriteLine("按任意鍵退出...")

Console.ReadKey() ' 等待用戶輸入，以便程序不會立即退出

End Sub

End Module

```

使用 `Console.ReadLine().Substring()` 方法

你也可以使用 `Substring()` 方法來獲取輸入字符串的第一個字符。

```vb

Module Module1

Sub Main()

Console.WriteLine("請輸入一個字符：")

Dim input As String = Console.ReadLine()

If input.Length > 0 Then

Dim character As Char = input.Substring(0, 1)(0)

Console.WriteLine("輸入的字符是：" & character)

Else

Console.WriteLine("沒有輸入字符。")

End If

Console.ReadLine() ' 等待用戶輸入，以便程序不會立即退出

End Sub

End Module

```

這些方法都可以在VB.NET控制臺應用程序中使用。根據你的具體需求，你可以選擇最適合的方法。