Re: Error 30007 Private key must be loaded or gen (General questions)

I'm not sure why your code doesn't work. I tried something similar and it does work for me:
[code] Dim cert As New Certificate

On Error Resume Next
cert.LoadKey App.Path & mykey
If Err <> 0 Then
cert.GenerateKey 0 'rsakey
cert.SaveKey App.Path & mykey
End If

MsgBox cert.PublicKeyOpenSSH[/code]

Can you try it out and change to it suits your needs?