Module Module1

    Sub Main()

    End Sub

    Sub Test(val As Object)
        Dim r As String

        If val Is Nothing Then r = "null" GoTo label1

label1:
    End Sub
End Module

(11) : error BC30205: End of statement expected.

        If val Is Nothing Then r = "null" GoTo label1
                                          ~~~~~~~~~~~