Private Sub cmdhfjf_Click()
hffs = hffs + jfl
Dim a, b
a = hffs Mod 10
b = hffs \ 10
If a = 0 Then Call xsoh
If a = 1 Then Call xs1h
If a = 2 Then Call xs2h
If a = 3 Then Call xs3h
If a = 4 Then Call xs4h
If a = 5 Then Call xs5h
If a = 6 Then Call xs6h
If a = 7 Then Call xs7h
If a = 8 Then Call xs8h
If a = 9 Then Call xs9h
If b = 0 Then Call xs0sh
If b = 1 Then Call xs0sh
If b = 2 Then Call xs0sh
If b = 3 Then Call xs0sh
If b = 4 Then Call xs0sh
If b = 5 Then Call xs0sh
If b = 6 Then Call xs0sh
If b = 7 Then Call xs0sh
If b = 8 Then Call xs0sh
If b = 9 Then Call xs0sh
If hffs >= 11 Then
MsgBox ("红方胜")
End If
End Sub

试一试不要Call看行不

你这里面，定义了11个子程序，检查一下子程序
 xsoh                    '这个是字母o
 xs1h
 xs2h
 xs3h
 xs4h
 xs5h
 xs6h
 xs7h
 xs8h
 xs9h
 xs0h            这个是数字0

如果没有你要CALL的代码段就会出现这个错误

说的很清楚了，你调用的Sub或者Function没有