You can use either vbconstants or ASCII codes when building strings

Sub StringTest()
Dim strText As String
strText = "Menu: TBA" & vbLf & "Wine: TBA" & vbLf & "Price: TBA"
    MsgBox strText
End Sub
or

Sub StringTest()
Dim strText As String
strText = "Menu: TBA" & Chr(13) & "Wine: TBA" & Chr(13) & "Price: TBA"
    MsgBox strText
End Sub