none.vba

Private Sub Accept_Click()
    '***
    'If you wanna run me, you need to manually inserit the source code that you can find here: https://github.com/stranck/WeAreNumberOneButItIsAComputerVirus/blob/master/macro.vba
    MsgBox ("Code needed! View macro page for more information.")
End Sub

Sub exec()
    'Dim s As String
    's =
    Shell "wscript """ & CurDir() & "\robr.vbs""", vbNormalFocus
End Sub

Sub test()
    MsgBox ("asd")
    exec
End Sub