我用inputbox输入内容，判断值是否为空，若空，则msgbox警告不能为空值。接下来的步骤是我想msgboxresult为retry，则返回到inputbox，若为cancel则exit sub

dim input as string
input= inputbox（"请输入内容"）
if input ="" then 
msgbox("内容不能为空"，5)
..........
end if

......省略号部分我再网上找了个select case的语句，
case 0     msgboxresult.retry=true
input= inputbox（"请输入内容"）
case 1   msgboxresult.cancle=true
 exit sub


请高手帮我看看能不能改进下，总感觉比较繁琐。特别是红字的部分不能用什么函数直接返回到inputbox界面。虚心请教各位，谢谢

Dim statusbox As String
        statusbox = InputBox("请扫描二维码", "二维码字符串输入框", 1)
        If statusbox = "" Then
            Select Case MsgBox("请输入有效的二维码字符串", MsgBoxStyle.OkCancel)
                Case MsgBoxResult.Ok
                    GoTo 。。。。。。
                Case MsgBoxResult.Cancel
                    Exit Sub
            End Select

        End If

我该怎么修改才能goto到inputbox让重新输入呢？