Ya no es necesario gracias ya se la sln. Asi como hay DateDiff supuse q habria algo para adicionar y sí es DateAdd. Asi q hice esto
Dim fecSgt As Date
Dim fec_desde = Me.dtpFecIni.Value
Dim dias As Double
dias = Me.txtDias.Text
fecSgt = DateAdd(DateInterval.Day, dias, fec_desde)
