Module Module1
    Function Main(ByVal cmdArgs() As String) As Integer
        Dim btn As Integer
        Dim exitCode As Integer = 1
        If cmdArgs.Length > 0 Then
            btn = CreateObject("WScript.Shell").Popup(cmdArgs(0), 10, "win-ssh-askpass", vbOKCancel + vbQuestion + vbSystemModal)
            Select Case btn
                Case vbOK
                    exitCode = 0
            End Select
        Else
            ' key requester goes here
            exitCode = 0
        End If
        Return exitCode
    End Function
End Module