在VB程序中判断一个字符串是否为回文，可以采用以下几种方法：
方法一：使用内置函数`StrReverse`
```vb
Private Sub Command1_Click（）
Dim Text1 As String
Dim Text2 As String
Text1 = TextBox1.Text
If Text1 = StrReverse（Text1） Then
Text2 = "YES"
Else
Text2 = "NO"
End If
TextBox2.Text = Text2
End Sub
```
方法二：使用循环逐字符比较
```vb
Private Sub Command1_Click（）
Dim s As String
Dim flag As Boolean
s = Text1.Text
flag = True
Dim i As Integer
i = 1
Do While i <= Len（s） / 2
If Mid（s, i, 1） <> Mid（s, Len（s） - i + 1, 1） Then
flag = False
Exit Do
End If
i = i + 1
Loop
If flag Then
Label2.Caption = s & "是回文字符串"
Else
Label2.Caption = s & "不是回文字符串"
End If
End Sub
```
方法三：判断整数是否为回文数
```vb
Public Function IsPalindrome（ByVal num As Integer） As Boolean
Dim reversedNum As Integer = 0
Dim originalNum As Integer = num
Do While originalNum > 0
Dim remainder As Integer = originalNum Mod 10
reversedNum = reversedNum * 10 + remainder
originalNum = originalNum \ 10
Loop
Return reversedNum = num
End Function
```
方法四：使用栈实现逆序
```vb
Private Sub Command1_Click（）
Dim s As String
Dim stack As New Stack
s = Text1.Text
For i = 1 To Len（s）
stack.Push（Mid（s, i, 1））
Next i
Dim isPalindrome As Boolean = True
While stack.Count > 0
If stack.Pop（） <> s（Len（s） - Stack.Count） Then
isPalindrome = False
Exit While
End If
End While
Label2.Caption = IIf（isPalindrome, s & "是回文字符串", s & "不是回文字符串"）
End Sub
```
方法五：使用`IsNumeric`函数和字符串处理
```vb
Dim inputString As String
Dim i As Integer
Dim result As String
inputString = Text1.Text
result = "NO"
If IsNumeric（inputString） Then
inputString = inputString.ToString（）
For i = 1 To Len（inputString） / 2
If Mid（inputString, i, 1） <> Mid（inputString, Len（inputString） - i + 1, 1） Then
Exit For
End If
Next i
result = "YES"
End If
Label2.Caption = result
```
以上方法都可以用来判断一个字符串是否为回文。你可以根据具体需求和代码的可读性选择合适的方法。