求VBA编程，用于excel自定义函数

'伪代码，这逻辑乱七八糟的
Option Explicit
Sub 开始()
　If Not 条件1 Then Exit Sub
　Call 命令1
1: If 条件3 Then
　　Call 命令3
2: If 条件4 Then
　　　Call 命令4
　　Else
　　　If 条件2 Then
　　　　Call 命令5
　　　Else
　　　　GoTo 1
　　　End If
　　End If
　Else
　　Call 命令2
　　GoTo 2
　End If
End Sub
Function 命令1()
End Function
Function 命令2()
End Function
Function 命令3()
End Function
Function 命令4()
End Function
Function 命令5()
End Function

已解决