Doesn't wait for the response to Question

[Aussiebear]

The following code was meant to pause until the User selects an answer but simply runs through as if the answer was "Yes". How do I get the code to stop and wait?


Private Sub cmdFinish_Click()
'records time, date and job # and determines if job is finished or not
Dim LR As Long, ws As Sheet1
Set ws = Sheets("Operating")
LR = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
ws.Range("A" & LR).Value = Date
ws.Range("B" & LR).Value = cboSelectJobs.Value
ws.Range("C" & LR).Value = Time
ws.Range("D" & LR).Value = "Finished Job"
Msg = "Is this end of job?"
Responce = MsgBox(myMsg, vbYesNo + vbQuestion)
Select Case Responce
Case Is = vbYes
ws.Range("F" & LR).Value = "T"
Case Is = vbNo
ws.Range("F" & LR).Value = "N"
End Select
End Sub

[Aussiebear]

Solved it by writing the code in the right order.

Private Sub cmdFinish_Click()
'records time, date and job # and determines if job is finished or not
Dim LR As Long, ws As Sheet1
Set ws = Sheets("Operating")
LR = ws.Range("A" & Rows.Count).End(xlUp).Row + 1
Msg = "Is this end of job?"
Responce = MsgBox(myMsg, vbYesNo + vbQuestion)
Select Case Responce
Case Is = vbYes
ws.Range("F" & LR).Value = "T"
Case Is = vbNo
ws.Range("F" & LR).Value = "N"
End Select
ws.Range("A" & LR).Value = Date
ws.Range("B" & LR).Value = cboSelectJobs.Value
ws.Range("C" & LR).Value = Time
ws.Range("D" & LR).Value = "Finished Job"
End Sub