如何用VB判断读取TXT文本内容？

有一个TXT文件，内容有两种情况
第一种情况：tm.txt内容
m=A
内容只有一行，其中A也可能是其它的任何字母（只有一个字母）
第二种情况：tm.txt内容
m=
只有m=两个符号
要求：
用VB程序代码判断tm.txt内容，当为第一种情况时，弹出确定对话框，内容“输出字母”
当为第二种情况时，弹出确定对话框，内容“输出为空”！谢谢，请给出具体代码！

dim s as string
open "<路径>\tm.txt" for input as #1
input #1,s
if right(s,1)="=" then
msgbox "输出为空"
else
msgbox right(s,1)
end if
close #1

On Error Resume Next Dim another As String Open "c:\tm.txt" For Input As #1 Do While Not EOF(1) Input #1, another Close #1 if mid(another,3,1) is not null then a=mid(another,3,1) msgbox a else msgbox "输出为空" end if

1、对于文件的操作vb提供了open语句、print #语句、input #语句等语句来处理文件。 2、读取多行文本，可以使用line input #语句，一行行读取，再连接在一起，这种方法对大一点txt文件效率不高。 3、下面提供一个高效率、一次性读入所有文本的vb6示例： private sub command1_click()   dim r   open "d:\readme.txt" for binary as #1   r = strconv(inputb(lof(1), 1), vbunicode)   close #1   debug.print r end sub

private sub command1_click() open "c:\tm.txt" for input as #1 line input #1,s if right(s,1)="=" then msgbox "输出为空" else msgbox right(s,1) end if close #1 end sub