Sub FormatDrive(driveLetter As String)
If MsgBox("Are you sure you want to format the " & driveLetter & ": drive?", MsgBoxStyle.Exclamation Or MsgBoxStyle.YesNo) = DialogResult.Yes Then
Shell("format " & driveLetter & ":")
End If
End Sub