Multi Select List Box

Private Sub cmdSubmit_Click()
If Me.lstProcess.Value = -1 Then
MsgBox "Please Select SPA Process", vbExclamation, "SPA Process"
Exit Sub
End If
ActiveWorkbook.Sheets("SPA Error Tracking").Activate
Range("B4").Select
Dim i As Integer
For i = 0 To lstProcess.List(i)
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

With ActiveCell
.Value = txtLoanNumber.Value
.Offset(0, 1) = txtProsup.Value
.Offset(0, 2) = txtIssue.Value
.Offset(0, 3) = lstProcess.Value
End With
Next i
End Sub

1. What property would I use for the message box at the beginning, if the user has not made a selection?

2. I have the listbox set as multiselect. How can I update this code to take each selection and create a new row on the Error Tracking Sheet?

If the user selects multiple selections from the list box. I will need to create a separate row of data for each selection.