working with types , Copy data of type inside other variable with different type

[Gruff]

My preference would be to write a function before using LSet.

Option Explicit

Private Type AA
  AA01 As String * 2
  AA02 As String * 2
End Type

Private Type BB
  BB01 As String * 4
End Type

Private Sub Form_Load()
  Dim K As AA
  Dim L As BB
  
  K.AA01 = "11"
  K.AA02 = "22"
 
  L = ToBB(K)
 
  MsgBox L.BB01
End Sub

Private Function ToBB(A As AA) As BB
  ToBB.BB01 = A.AA01 & A.AA02
End Function