Elseif erwartet end of-Anweisung ??

Private Sub Cmdauswahl_Click(sender As Object, e As EventArgs) Handles Cmdauswahl.Click
        If CheckboxIntDasi.Checked = True Then
            Dim proc As New Process()
            proc.StartInfo.FileName = "C:\solutio\client\charly\solutio.app\dbbackup.exe"  
            proc.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            proc.Start()
            proc.CloseMainWindow()
        Elseif CheckBoxExtDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckBoxDBdump.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckBoxMail.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        ElseIf CheckBoxSMS.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        Elseif CheckboxIntDasi.CheckState = True Then MsgBox("Ist in Arbeit", 64, "Hinweis !")  
        End If

    End Sub