Introduction to VBA

 CODE:

Sub del_BJSFM_files()

MsgBox ("This is a macro test")

Call Shell("cmd.exe  ", vbNormalFocus)

End Sub

Sub Shell()

Shell "cmd /c ping 8.8.8.8", vbMaximizedFocus

Shell "cmd /c pause", vbMaximizedFocus

End Sub