vb.net函数不会在所有代码路径上返回值

我在VB.Net中做了一个简单的函数，获取您在textbox one中键入的字符串，并通过WebBrowser将其发送到文本框id“wgo”，然后单击submit。。它给了我一个警告“函数GetMessage（）不会在所有代码路径上返回值”。如果有人知道如何修复警告，或者如何以不同格式捕获textbox1.text消息；请让我知道

下面是我使用的部分代码：

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim elements = WebBrowser1.Document.GetElementsByTagName("input")   '' or whatever tag it is
    For Each element As HtmlElement In elements
        GetMessage() 'Get message from textbox1 and send it 
        If element.GetAttribute("className") = "submitbut" Then
            element.InvokeMember("click")
            MsgBox("Your ECHO has been broadcast!")
            Exit For
        End If
    Next
    TextBox2.Text = TextBox1.Text 'Displays what the sent message was
    TextBox1.Text = ""            'Erases old message from textbox1
    TextBox3.Text = getCurrentDateTimeString()  'Displays the time and date it was sent
End Sub

Function GetMessage()
    WebBrowser1.Document.GetElementById("wgo").SetAttribute("value", TextBox1.Text)
End Function

---

任何帮助都将不胜感激！我是VB.net新手，所以请对我放松！再次感谢

您的函数根本不返回任何内容

这是您想要的行为，您应该将其更改为

Sub

：

Sub GetMessage()
    WebBrowser1.Document.GetElementById("wgo").SetAttribute("value", TextBox1.Text)
End Sub 

---

哈哈，哇。我已经习惯了其他语言，在这些语言中可以定义函数并在以后调用它们。我不习惯VB提供的所有更新的“函数类型”。谢谢，它起到了纠正作用：现在我在“WebBrowser1.Document.GetElementById（“wgo”）.SetAttribute（“value”，TextBox1.Text）”上得到了“对象引用未设置为对象实例”。。有什么想法吗？也许它没有将“wgo”识别为id？您可能希望将此答案标记为正确，然后开始一个新问题。