Generate first and last letter In Capital in visual basic with excel

I want To Create Password In Excel with Vb CODE 
First letter Capital and Last letter capital 
Example : A245F 

```
Public Sub CmdCreatePassword_Click()
     Dim i As Integer, j As Integer
     For i = 1 To 70
          j = Int(Rnd(99) * 100)
          k = Int(Rnd(9))
          Cells(i, "a") = Chr(97 + Int(Rnd(26) * 26)) & IIf(j < 10, j + 27, j) & IIf(k < 9, k + 9, k) & Chr(122 - Int(Rnd(26) * 26))
     Next i
End Sub
Private Sub CmdCreatePassword_KeyDown(ByVal KeyCode As 
 MSForms.ReturnInteger, ByVal Shift As Integer)
    CmdCreatePassword_Click
End Sub

```

[![enter image description here](https://i.stack.imgur.com/L3vby.png)](https://i.stack.imgur.com/L3vby.png)