Puedes hacer un barrido de las fuentes que están instaladas en el sistema y comparar hasta encontrarla
Ejemplo.
Cita: Dim Fonts As New System.Drawing.Text.InstalledFontCollection
Dim Family As FontFamily
Dim band as Boolean = false
For Each Family In Fonts.Families
If Family.Name = "Verdana" Then
band = True
Exit For
End If
Next
If band Then
'Aqui pongo el codigo para copiar la fuente
'puedo usar el System.IO
End If
Espero que con ésto te hayas dado una mejor idea.
Salu2