tVar.iInt = MsgBox("Please select a destination directory of the imported track's." & vbLf & _
"The track files will get the same name as the track.", vbOKCancel, TH)
If tVar.iInt = vbCancel Then Exit Sub
If tVar.iInt = vbOK Then
Du får bara byta ut vbOK till vbYes och vbCancel till vbNo
If UserKonto.Text = "-- Välj konto... --" Then
tVar.iInt = MsgBox("Du har glömt att ange vilket konto kunden vill ha! Vill du göra det nu?", vbYesNo, "Hallå!")
If tVar.iInt = vbYes Then Exit Sub
End If
Klipte bara lite från gammal kod :)
tVar är ett objekt, du ska bara skriva en integer framför,
If UserKonto.Text = "-- Välj konto... --" Then
dim retVal as Integer
retVal = MsgBox("Du har glömt att ange vilket konto kunden vill ha! Vill du göra det nu?", vbYesNo, "Hallå!")
If retVal = vbYes Then Exit Sub
End If