refactor code

Question

hey guys..noob code here. how can i possibly refactor this long code? o_o

    Private Sub btnNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNew.Click
        If btnNew.Text = "New" Then
            btnNew.Text = "Save"
            enable()
        ElseIf btnNew.Text = "Save" Then
            If txtDiagnosis.Text = String.Empty Then
                MessageBox.Show("Error encountered! No diagnosis.", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            ElseIf pID = String.Empty Then
                MessageBox.Show("Error encountered! No patient information.", "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Exit Sub
            Else
                If MessageBox.Show("Save information?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                    Try
                        Using dbconn As New SqlConnection(conn)
                            dbconn.Open()
                            Dim dbadd As New SqlCommand("insert into tblcheckups(checkdate, patientid, employeeid, diagnosis, comments, prescription) values(@checkdate, @patientid, @empID, @diagnosis, @comments, @prescription)")
                            With dbadd
                                .Parameters.AddWithValue("@checkdate", Now.ToShortDateString.Trim)
                                .Parameters.AddWithValue("@patientid", pID.Trim)
                                .Parameters.AddWithValue("@empID", emp.Trim)
                                .Parameters.AddWithValue("@diagnosis", txtDiagnosis.Text.Trim.Replace("'", "''"))
                                .Parameters.AddWithValue("@comments", txtComment.Text.Trim.Replace("'", "''"))
                                .Parameters.AddWithValue("@prescription", txtPrescribe.Text.Trim.Replace("'", "''"))
                                .Connection = dbconn
                                .ExecuteNonQuery()
                            End With
                            dbconn.Close()
                        End Using
                        MessageBox.Show("Information saved!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        disable()
                        getNames()
                        clear()
                        btnNew.Text = "New"
                    Catch ex As Exception
                        Beep()
                        MessageBox.Show(String.Format("Error encountered! {0}. Source: {1}", ex.Message, ex.Source), "", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                    End Try
                End If
            End If
        End If
    End Sub