Dim myDoubles(myTextboxes.Count - 1) As Double
Dim i As Integer = -1
For Each key As String In myTextboxes.Keys
    i += 1
    If IsNumeric(myTextboxes(key).Text) Then
       myDoubles(i) = CDbl(myTextboxes(key).Text)
    End If
Next key