随机掉入下面的地图中，怎么走完所有格

我想了下 定义了一个a(30,30)维度的二维数组，
然后随机掉进地图的位置是a(15,15).
将走过的位置对应的元素定义为1，比如a(15,15)=1
没有走过的位置对应的元素定义为2，比如刚进地图的点四边都有可走的路径
这样a(15,14)=2,a(15,16)=2,a(14,15)=2,a(16,15)=2
然后按东南西北的顺序搜素=2的元素往下走下去，先找a(15,15)周围距离为1的格，没找到就找距离为2的格，再没找到就找距离更远的，这样循环下去，直到找完为止。
我自己写的这个搜索过程很复杂，找距离为1的就写了很多行代码了，有没有什么办法能够简单一点呢？

就按这个颜色由内向外向外找出去，直到找完所有的格

Sub FindPot
Dim XunMoArea(30, 30)
Dim x, y
x = 15
y = 15
Dim XunmoJuli,Va,Vb
XunmoJuli=2
While XunmoJuli < 15
Va = - XunmoJuli
While Va <= XunmoJuli
Vb = XunmoJuli - Abs(Va)
TracePrint XunmoJuli
TracePrint Va &"和"& Vb
If x - Va>=0 and x - Va <=30 Then
If Vb = 0 Then
TracePrint "XunMoArea(" & x - Va &","& y +Vb &")"
If XunMoArea(x - Va, y + Vb) = 2 Then
//任务
End If
Else
TracePrint "XunMoArea(" & x - Va &","& y + Vb &")"
If (y + Vb>=0 and y + Vb <= 30) Then
TracePrint "XunMoArea(" & x - Va &","& y + Vb &")"
If XunMoArea(x - Va, y + Vb) = 2 Then
End If
End If
TracePrint "XunMoArea(" & x - Va &","& y - Vb &")"
If (y - Vb>=0 and y - Vb <= 30) Then
TracePrint "XunMoArea(" & x - Va &","& y - Vb &")"
If XunMoArea(x - Va, y - Vb) = 2 Then
End If
End If
End If
End If
Va=Va+1
Wend
XunmoJuli=XunmoJuli+1
Wend
End Sub

李白因造谣夸大庐山瀑布的长度而被拘。
柳宗元在狱中遇见李白，忙问因何到此，
李白说：造谣了，我说庐山瀑布飞流直下三千尺，人家量了，根本没那么长。
柳宗元说：唉，彼此彼此啊，我说千山鸟飞绝，有人举报，说有一只鸟还在呢。
正感叹时，王之涣进来了，两人相视一笑道：哈哈，一片孤城万仞山！
杜牧走来大骂，我写了"停车坐爱枫林晚"，丫就把我抓来说我公众场合淫乱。

递归搜索