Determinar ubicación de Textbox dentro de Frame

Podemos agregar el frame como parámetro Opcional en la función:

Public Function lanzarcalendario(cualquierformulario As Object, xtextbox As String, Optional xframe As Object)

Entonces en la función tomaríamos ese parámetro para encontrar las longitudes (left y top)

    If Not xframe Is Nothing Then
        xframeleft = xframe.Left
        xframetop = xframe.Top + 5
    End If

El código quedaría así, en el caso del command1 y 2 no es necesario enviar el frame, para el commad3, envías el frame, de esa forma podemos obtener la izquierda y la altura del frame y por ende la izquierda y la altura del textbox3. Al final se tiene que sumar el top del form, el top del frame, el top del textbox, la altura del textbox y mas 25.

Private Sub CommandButton1_Click()
    Call lanzarcalendario(Me, "TextBox1")
End Sub
'
Private Sub CommandButton2_Click()
    Call lanzarcalendario(Me, "TextBox2")
End Sub
'
Private Sub CommandButton3_Click()
    Call lanzarcalendario(Me, "TextBox3", Me.Frame1)
End Sub
'
Public Function lanzarcalendario(cualquierformulario As Object, xtextbox As String, Optional xframe As Object)
    Dim xctrl As Control
    Load frmCalendario
    If Not xframe Is Nothing Then
        xframeleft = xframe.Left
        xframetop = xframe.Top + 5
    End If
    For Each xctrl In cualquierformulario.Controls
        If xctrl.Name = xtextbox Then
            frmCalendario.StartUpPosition = 0
            frmCalendario.Left = cualquierformulario.Left + xctrl.Left + xframeleft + 5
            frmCalendario.Top = cualquierformulario.Top + xctrl.Top + xctrl.Height + xframetop + 25
        End If
    Next
    frmCalendario.Show
End Function

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

Dante, como siempre excelente, muchísimas gracias por compartir tu conocimiento, te agradezco mucho.

Era después, yo lo estaba poniendo antes.

Sería mucho abusar de ti ampliando la pregunta? En caso de que esté dentro de 2 frames? Es decir el textbox esté dento de un frame que está dentro de otro frame?

De nuevo muchas gracias.

Agrega otro parámetro Opcional a la función:

Private Sub CommandButton1_Click()
    Call lanzarcalendario(Me, "TextBox1")
End Sub
'
Private Sub CommandButton2_Click()
    Call lanzarcalendario(Me, "TextBox2")
End Sub
'
Private Sub CommandButton3_Click()
    Call lanzarcalendario(Me, "TextBox3", Me.Frame1)
End Sub
'
Private Sub CommandButton4_Click()
    Call lanzarcalendario(Me, "TextBox3", Me.Frame1, Me.Frame2)
End Sub
'
Public Function lanzarcalendario(cualquierformulario As Object, xtextbox As String, _
            Optional xframe As Object, Optional xframe2 As Object)
    Dim xctrl As Control
    Load frmCalendario
    If Not xframe Is Nothing Then
        xframeleft = xframe.Left
        xframetop = xframe.Top + 5
    End If
    If Not xframe2 Is Nothing Then
        xframeleft2 = xframe2.Left
        xframetop2 = xframe2.Top '+ 5
    End If
    For Each xctrl In cualquierformulario.Controls
        If xctrl.Name = xtextbox Then
            frmCalendario.StartUpPosition = 0
            frmCalendario.Left = cualquierformulario.Left + xctrl.Left + xframeleft + xframeleft2 + 5
            frmCalendario.Top = cualquierformulario.Top + xctrl.Top + xctrl.Height + xframetop + xframetop2 + 25
        End If
    Next
    frmCalendario.Show
End Function

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias