请教一个vb函数

请问一个vb函数
例如以下代码,是否有个函数可简写为1行的形式?
就像TSQL里的case when.. then.. end

VB code

if 条件 then  结果1else  结果2end if

VB code

iif(a>b,a,b)'如果a>b 结果为a，否则为b
[解决办法]
VB6代码
Private Sub Command1_Click()
i = 5
If i > 6 Then: MsgBox "i>6": Else: MsgBox "i<=6"
End Sub