Mais simples

 

Private Sub Command1_Click()
Dim qtDias As Integer
txtDevolucao.Text = Date
qtDias = DateDiff("d", txtLocacao, txtdevolucao)
lblDias.Caption = qtDias

End Sub