Ctrl + S

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'apakah tombol Ctrl telah di tekan?
If Shift = vbCtrlMask Then
    'Ctrl di tekan. tinggal kita pilih huruf apa yang akan di kombinasikan
    Select Case KeyCode
        Case vbKeyS
            MsgBox "Telah memencet tombol Ctrl+S"
    End Select
End If
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub