二进制文件中特征16进制编码的查找和比较(注意,中间有00的字符)解决思路

二进制文件中特征16进制编码的查找和比较(注意,中间有00的字符)
现有一二进制文件,需要查找十六进制编码为 "50   00   52   00   4F   00   4A   00   45   00   43   00   54   00   77   00   6D   00 ",如果找到了则给出其位置.

在具体编程时   出现458错误 "不支持此Automatic类型 ".
请高手给一个不会出错的代码样片.
谢谢.

------解决方案--------------------
Dim A1,A2 As String *18
VB中不能这样连续定义的

也许可以这样写
Dim A1 As String *18,A2 As String *18
------解决方案--------------------
Option Explicit
Dim a, m As String * 18 可以这样定义,不过 a 是Variant类型的
Private Sub Command1_Click()
a = "Hello "
m = "Good "
End Sub