http://blog.csdn.net/iamlaosong/article/details/46820239
StationName = ListBox2.Value
If IsNull(StationName) Or StationName = vbNullString Then
msg = MsgBox("请先选择加油站!" , vbOKOnly + vbExclamation, "iamlaosong")
Exit Sub
End If
实测发现,列表框未做选择时,其值为null,但是,单元格的值却不一样,即使这个单元格没有使用,如果将其值赋给一个变量,这个变量的值是空字符串vbNullString,而不是null。