Change Start Value and Increment of SQL Sequence

Using a macro, how to add a sqlSequence and change its start value?

The following code always set the start value to 1. I'd like it to be set to dlg.startwTxt

Dim seq As SQLServerSequence

...

Set seq = mdl.SQLServerSequences.Add(ent.TableName, ent.Owner)

If dlg.startwChbx = 1 Then
     seq.StartWith = Trim(dlg.startwTxt)
End If