Identifier expected

Hej udviklere.

Jeg har problemer med min kode i VB. Jeg får 4 fejl (Identifier expected). Der er en blå streg under de sidste 4 "Private Sub", men siden jeg ikke er en haj til det her aner jeg ikke hvad jeg skal gøre. nogen der kan hjælpe?

Public Class Form1
Private Sub open()
OpenFileDialog1.Filter = "Rich Text Files (*.rtf)|*.rtf" 'Type of files able to open, in this case RTF's
If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'If OK, load the file
rtb.LoadFile(OpenFileDialog1.FileName)
End If
End Sub

Private Sub save()
SaveFileDialog1.Filter = "Rich Text Files (*.rtf)|*.rtf" 'Type of files able to save, in this case RTF's
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then 'If OK, save the file
rtb.SaveFile(SaveFileDialog1.FileName)
End If
End Sub
Private Sub
SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click 'Onlick Save menu, bring up the save dialog box
save() 'The sub Save
End Sub

Private Sub
OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click 'Onlick Open menu, bring up the open dialog box
open() 'The sub Open
End Sub
Private Sub
FontToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontToolStripMenuItem.Click 'Onlick Font menu, bring up the font dialog box
If FontDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
rtb.SelectionFont = FontDialog1.Font
End If
End Sub

Private Sub
FontColorToolStripMenuItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontColorToolStripMenuItem.Click 'Onlick Font Color menu, bring up the font color dialog box
If ColorDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
rtb.SelectionColor = ColorDialog1.Color
End If
End Sub
End Class