PVK to XML

Convert RSA .pvk (private key) to XML.

Dim pvk As New PrivateKey

Dim success As Long

'  Password is "wiggy"
success = pvk.LoadPvkFile("myKey.pvk","wiggy")
If (success = 0) Then
    Text1.Text = Text1.Text & pvk.LastErrorText & vbCrLf
    Text1.Refresh
    Exit Sub
End If

'  Save it as XML:
success = pvk.SaveXmlFile("myKey.xml")
If (success = 0) Then
    Text1.Text = Text1.Text & pvk.LastErrorText & vbCrLf
    Text1.Refresh
    Exit Sub
End If